Sub prueba_Width()
    Dim fichero As String
    fichero = "C:\Temp\NotasWidth.txt"
    Open fichero For Output As #1
    VBA.Width 1, 10
    Dim texto As String
    Dim i As Integer
    For i = 0 To 15
        texto = Chr(65 + i)
        Print #1, texto;
    Next i
    Close #1
End Sub
